home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
DB_CLIPP
/
2611.ZIP
/
MANIFEST.ZIP
/
COUNTER5.PRG
< prev
next >
Wrap
Text File
|
1988-04-14
|
648b
|
43 lines
******************
* COUNTER5.PRG *
* CHOICE 4 *
* SUB 8, SUB 5 *
* SUBROUTINE *
* APR 14, 1988 *
* GUY DUBEC *
******************
STOR SPACE(3) TO H1, H2, H3, H4
STOR 000000 TO TOT1, TOT2, TOT3, TOT4
IF COUNT=1
STOR HAND1 TO H1
STOR TON TO TOT1
STOR COUNT+1 TO COUNT
SKIP
ELSE
RETURN
ENDIF
IF COUNT=2
STOR HAND2 TO H2
STOR TON TO TOT2
STOR COUNT+1 TO COUNT
SKIP
ELSE
RETURN
ENDIF
IF COUNT=3
STOR HAND3 TO H3
STOR TON TO TOT3
STOR COUNT+1 TO COUNT
SKIP
ELSE
RETURN
ENDIF
IF COUNT=4
STOR HAND4 TO H4
STOR TON TO TOT4
SKIP
ELSE
RETURN
ENDIF
RETURN